home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xdmetex.lha / rexx / CD_TeX.xdme next >
Text File  |  1995-09-07  |  696b  |  23 lines
  1. /* TeX- und Preview-Directory von DME aus wechseln           */
  2. /*                                                           */
  3. /* (c) 1992 Helmut Kindler        $VER CD_TeX 1.0 (10.12.92) */                        
  4.  
  5. parse ARG dir
  6. options results
  7.  
  8. /* Einbinden der rexxupport.library [wegen delay()] */
  9. if ~show('l', "rexxsupport.library") then do
  10.     check = addlib('rexxsupport.library',0,-30,0)
  11.     if check = 0 then do
  12.         title 'Fehler: Kann die rexxsupport.library nicht einbinden !!'
  13.         address command wait 2
  14.         exit
  15.     end
  16. end
  17.  
  18. address 'AMIGATEX'   'CD' dir
  19. address 'TEXPREVIEW' 'CD' dir
  20. address 'TEXPREVIEW' 'GetCWD'
  21. title '(Neues Directory:' result ')'
  22. call delay (100)
  23.